@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr dΠƠӛiE 4-@!=("PROGRAM NOT LOADED A E nU :(&}}ŠϠŠԠU6.ԠҠpX( (R(D Ǻ THIS WILL ADD A LINE NUMBERED 0 }TO THE PROGRAM.U(X(qV7<,44(Һ ՠ٠ŠV( ŠĠr>(%( TO} RETURN TO MENU OR >( TO CONTINUEs )"@' tAUAew 6-6.xd ( }ENTRY #%1(HIT FOR MENU d(- OR NOMINATE CONSTANT TO BE REPLACED, NUMBER z|4Af` 6-A:, }6-% "@8( NO MORE , I'M FULLR(HIT TO GO ONV` Af(( PLEASE WAIT 6-%6.C }67,.=:,& 6. 6.=:,&67&B:,<,.n6-$+&,67%<%,.367%<%@,.P67%@<%@, }.=n67%@<%@ ,.=:,>>67%@!<%,.% ,#67B:,,.>:@:7B:,,,%A }(,,6-B:,6%6-?:C:,:&,+67<,.967B:,%,.g 6- Ag6-# Ag+6-%16-; AgG6-@Q Ag]6}-@g Ag6.>:%A',U67B:,%,.>:B:,%@,/67B:,%,.6=67B:,%,.M67B:,%,.-U6.}. -*67B:,%:F:%%,,. 67B:,%:@:7%<%,,&, 6-%9 !B:,/( HELP: I'VE RUN OUT OF} PROGRAM9 Ae6-@:7<,,#  %#67<,.>:@:7<,,&,  6-% Aev67<,.67%,.7%},6 6-66-@ AG,6-@6 AG!6-?:C:,%@q,! AebP#( OK, I'M DONE WITH THAT ONE}B(HIT FOR NEXT ENTRYFP Ae 1 1(% I AM NOW ADDING A LINE 0 TO PROGRAM . 6-B:,67,.%67<,}.>:,.6-B:,.6-?:C:,:,!67$%<$%,}.>:,)6-%/!56-=6-% A  67$%,.(( VARIABLES  = (>:,!67$%<$%,dCOCCCCCCCCCCC25CONBCDDDEFINMVPPABMENALIMENMECLGOTGOTSCREEBORDETEXYELLOBLAC}GREEBLUCURSOOFRESSSEARCHRTZZCOUNFLPPROSSTARSTMTATEMVNTVNTVNTVVTA} } !" }#$%&'()*+,-./01!}23456789:;<=>?@A"}BCDEFG @6-6-!6-@-6-@96-@E6-#}@Q6-@]6-@i6-@u6-@6-@ 6-AV6-F:A4,%$F:A5, dd;A($}$@8,;@ ,;@,;@,;@0,;A ,;,;,;A , "6-I:,&A ;,"6. ] 6%}-6-@8!6-B0-6-B96-B E6-BQ6-A]6-Ao6-A6-A'6-A &}36-A96-E6-AQ6-A]6-ARc6-o6-@P&K:&DESELECT PRINTER r;A&'},r67<@,.PhhhhhЩڅϢ؅֥مօe֥ׅͅiפ˥ Ԑ, Ԑ II67@<A&,.(}.ߩڤ͈HԑhЬЦА`i;A ,i67<@q,.GhhhhhhhhhJ)}ԭ`AA67@r<A ,.&h̭Эȩԅ`r;@,r67<@,.*}Phhhhhhhhheͥͅe΅eх˥e҅eυϥeЅР͑ϩ..67@<@,.Х˥+}`|;@,|67@<@,.Thhh B VhhJhEhDB VBJ BBBBhIhHhEhD V BL,}VZY+ *( V A R A L I S T E R J( ========================M(P(S(V(Y([""( DESIGNED AND DEVELOPED BY-}\( BOB MCDAVITT](( USING VARIOUS IDEAS^!!( FROM DIFFERENT MAGAZINES_0(0(% REFER TO C. L.STONE V.}ARIABLE UTILITYa**(" PAGE 6 MAGAZINE, ISSUES 11 AND 12b##( ALSO PROGRAMS SUCH AS CRABc( AND HELPERd   /}n? 6-6-6-6-!6-'6--6-36-96-?6-x' 6-6-6-6-!6-'6- 6-6-6-60}- 6-6-6-6-FFLINES 100 TO 140 NECESSARY TO CONSTRUCT THE VARIABLE VALUE TABLEFILL IN TEXTF1}ILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT2}FILL IN TEXT"FILL IN TEXT,FILL IN TEXT6FILL IN TEXT@FILL IN TEXTJFILL IN TEXTTFILL IN TEXT^3}FILL IN TEXThFILL IN TEXTrFILL IN TEXT|FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT4}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT5}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT&FILL IN TEXT06}FILL IN TEXT:FILL IN TEXTDFILL IN TEXTNFILL IN TEXTXFILL IN TEXTbFILL IN TEXTlFILL IN TEXT7}vFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT8}FILL IN TEXT') (}-P:@@&B:,,'#(&()$$'G -@"7( Ӡ٠٠ҠŠՠD)@9}G$j'1.(% 1$2L+ @/6. M E N U E-P:@@&B:,,'I:}(L(2 B2 -2))(! <1> DISK -- LOOK AT DIRECTORY2(((  <2> -- LOAD A .VAR FILE2(((  <3> ;} -- LOAD A .BAS FILE2(((  <4> -- SAVE A .VAR FILE2))(! <5> -- SAVE ALTERED FILE2(2&&( <6> D<}ISPLAY FULL -- SCREEN2''( <7> -- PRINTER2&&( <8> SUMMARY-- SCREEN2(2( SORT =}THE LISTING2( ADD DESCRIPTIONS2( FIND LINE NUMBERS2##( CHANGE VARIABLE NAMES2( CONV>}ERT CONSTANTS2( END PROGRAM2(2(-@!((ҠҠ3 )6.D:SUB3A>:,416-?}@+67@,.276-A#A B03A>:,426-@+67@,.176-AA B03A>:,43@}6-@+67@,.976-AA B03A>:,446-@+67@,.676-A0A B0 3B>:A},456-@,67@,.5586-AwB B0 3A>:,466-@+67@,.476-A(A B0 3B}A>:,476-@+67@,.576-AXA B0 3B>:,486-@,67@,.1586-AB B0C}3A>:,4S6-@ +67@,.876-A cA B03B>:,4A6-@,67@,.2586-AVD}B B03B>:,4F6-@,67@,.3586-AB B03B>:,4C6-@,67@,.4586-E}AB B03B>:,4X6-@,67@,.6586-A#B B03A>:,4E6-@+67@,.7F}76-AA B03 B0`367B:,%@,. 3+6-F:A6,%$F:A7,%6-+6-3. &6-$G}6-%F:%@,. B03Q%@%&'%@%&;%@Q%&@AU31%F:,&@H}1%%@F:%@,3, 6-&& @,6-%F:%@, 3!AU(HELP&!3j%%@#I}%%@9%%@j%+&& @,$F:%@,&@AU"3((6-?:C:,<@<@_);Tߠ ȱ ɛ_)hh L_),Ƚi) hhL} ;) MMm a}i, . HH))= ;U hh 9L' 9=*)0 B* _(E* _(H*= _( b}T`IȹɛL%_)[ȭ)0QM_)ߩȩ IB*ȹɛ` V$00 ` c}hhUR-00 : 0V)U)0 T) M) u` Duplicate filename...Error #00 d}0D1:*.*LIST1,032767Pressif okay >RENAMDELETLOCUNLOCWRITE D1:DOS.SYSLISTSAVEENTEBINARY LOADRUN MOV)))) e})))))))))FORMA!.!.!.!.!.#.#.#.#.#.&e.$DIOF';O'?LIS'WDO'EL'HEL'DE(x'i'm'q f}   ȹEȌߍq]ȹvߙ]aibiabL*   g}> i* Lߍq]ȹvߙ]aibiabL*   # ppSOME QUICK NOTES ABOUT THIS DISK. MY ATARI 130XE HAD TO GO IN FOR REPAIR, SO I'M REDUCED TO AN ATARI 600Xi}LeeWITH ONLY 4K USABLE MEMORY. ENOUGH TO COPY DISKS. NOT ENOUGH EVEN TO LOAD VARYMAIN (48SECTORS).ooTHE PROGRAM CALLEj}D VARYALL.BAS HAS ALL THE VARIABLE UTILITIES YOU CAN THINK OF IN ONE PROGRAM. I HOPE AND(ppTRUST IT IS MY FINAL (ERROR FREk}E ) VERSION...BUT I HAVEN'T KEPT TRACK AND CAN NOT NOW CHECK. ANY PROBLEMS,2pp(AND FOR MY FREE COPY OF THE CLUB DISK , I Pl}REFER SEPTEMBERS) ADDRESS TO E<ROBERT MCDAVITTFC/- 26 RANGIORA AVEPWELLINGTONm}ZPHONE (04)725129dEETHE PROGRAM VARYMAIN MERELY LOADS THE MENU PART OF VARYALL.BAS.nooAS THE USER SELECTS A SUBROUTn}INE SO IT IS THEN LOADED IN DIRECTLY BY THE MACHINE LANG PROGRAM HELD IN ZZ$xppTHE SUBROUTINES ARE LABELLED AS SUB1, SUB15},3wwA AAA`AUA@APA@AA%A5AEAeApp} D1:VARYMAINAAA`AUA@APA@AA%A5AEAeAp 6. VARIABLE LIST  < B:,"4("NOTHING LOADED YET, FOR MENU8<  6-6-6- -6$r}-$* -"(7&@7<&@0,*6-%5"@*"6-6-+6-@5 A`5"@*"6-$s}6-+6-@)5 A`/"@*"6-6-%6-/ Ar$  At0?-@"4( Ӡ٠$t}٠ҠԠŠ ;)? 1 2T-@+(NUMBER OF VARIABLES: 7-@ T( LENGTH OF STRING: B:,3 $u}  ԠŠ ;)? 1 2T-@+(NUMBER OF VARIABLES: 7-@ T( LENGTH OF STRING: B:,3 $2+AR.6. D I R E C T O R Y 2  6-6-# A %#D:*.* (w} -(6-%DDIF D$(11,13)="VAR" OR D$(11,13)="DAT" THEN ? " ";(B:, @A!(x} @A \"@ 6-6-'-@"G(Ԡ٠٠ҠԠN)R \ A 6-@ (y}6- A &&( SORRY, COULDN'T READ THE DISK4   ҠԠN)R \ A 6-@ (I ŠҠ / +6.̠ɠΠŠƠɠΠĠŠҠ/  2 B:,"*(PROGRAM IS NOT LOADED .... 2  ,{}5  A5,6.7$%<$%@,56-A:, 6.>:%A', / ( }-@,( SEARCH CRITERION/( O-(%,|}<1> PRECEDED BY (INVISIBLE) TOKENL( (ASC54 OR CHR$6)O( G%(<2> PRECEDED BY A TOKEND( (AS,}}C 8 OR CHR$)G( b*("<3> LINES WHERE TOKEN APPEARS b( (ASC%A' OR CHR$>:%A',) L-@,~}!'( ENTER YOUR CHOICE.)L @I)!@QA5@ %"@I67,.%67<,.6 %"@P67,,}.%67<,. / ( }-@,( OUTPUT CRITERION/( ( <1> PRINTER ( <2> SCREEN L-@!'( ENTER,} YOUR CHOICE.)L @I)!@PA5R ?"@P(}#E:)/5? A5X ) A5V,}P: ) A5X OA(3 NO RESPONSE FROM PRINTER, HIT TO CONTINUE..EO A5H S-( LINE,} NUMBERS FOR 7$%<$%,S( ============================ 6- -#6-?:C:, B:,"6($ NOTHING LOADED YET, FOR 0}MENU:>  6- -6-$# -(7&@7<,#6-%V"@6-!-@"K($àҠ0}ՠ٠٠ҠԠR)V "@''     V"@6-!-@"K($àҠ0NŠҠ< B:,"4("NOTHING LOADED YET, FOR MENU8< 1 -6.ҠŠΠ͠4}ŠҠ1  AH AI267$%<$%,. 267$%<$%,.P67B:,,.067B:,,.>:@:7B:,,,%4}A(,P67B:,,.>:@:7B:,,,%A(,##6-?:C:,:P:',,p!!67<,.>:4}&@:7%<%,,$,z$""SUB TO INPUT A VARIABLE NAME Y ( HIT FOR MENU U(/OR GIVE ONE OF THIS PRO4}GRAMS VARIABLE OLD NAME:Y 4 ' 67B:,%,. R B:,!G(6 SORRY, CAN ONLY HANDLE VARIABLES 8 CHARACT4}ERS OR LESSK N'R ##6-?:C:,Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L}EE !E^ ^ E E7EȩEdE/EȩE  D} .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU } L ? .  t`m*GBJ ~DEHI B V0dV}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh}DEL8HI4 0 HI,0 0  9 .G VLO},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO }STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }ԠԠB 4-@!:( NOTHING TO PRINT YET MATE > B f AP5-@!:(Ԡ͠8}ź L-@'@!P(b-@&@!f, -@!,( P R I N T I N G ...['3 VARIABLE8}S FOR PROGRAM X3+===========================================[3B -6-$B37&@7<&@0, 7&8}@)<,   :-@! .(PRINTER NOT AVAILABLE2 6 : -$B37&@7<&@0, 7&8S|ŠӠŠ} -(~  6.7,< 4-@!4( PROGRAM NOT LOADED 8 <}< > AU5-@!>( ҠŨĺخө .(Šخӽ *-@@".4<}AU5 6.D:67,. 6-B:,6-"7<,0:6-&" AU"7<,0D6-&" AU 67,.<}67B:,%,.&6-%B:,&6-@& AWC#67&<&,.>:@:7&<&,,%,C67&<&,.>:@:7&<&,,%,#<}#67&<&,.>:@:7&<&,,%,/ (}/( NOW SAVING )(!% ) >-<}@!2( CROOK DISK/FILENAME D:6 : > D))ADD I TO THE TWO BYTES AT V$(J,J+1)F!!6-@:7<,,%@:7%<%>5}pŠҠŠq -(r. 6-6.7,%4.6.XXs3 4+(} NOTHING TO SAVE, YO@}U DUMMY/ 3 ve A`5-@!>( ҠŨĺخҩ O( Šؽ a-@@"ew4@}A`5x( 6.D:67,.(67B:,%,..VARz) (})( NOW SAVING (( $ @}( E-@!9( CROOK DISK/FILENAME D:.VAR= A E  NOW SAVING (( $ @KX\-@!3(KILL PROGRAM..ARE YOU SURE.....X( OR TO MENU\b 4Y+c  THE ALDu@+AAJA@8T= B:,"5(#NOTHING LOADED YET,Π FOR MENU9= U 6.CVH}h7<,4 B(-1ST VARIABLE IS BLANK, MAYBE NOT YET LOADEDd( FOR MENU OR TO GO ONhW 0C ^ -H}(  Ԡ(c(<1> ACCORDING TO NAMEe!!(<2> ACCORDING TO NUMBER g,( <3> OTHER,( OR FOR MH}ENUh@-@!)(ҠҠ0)<"AU@ j#6-&@H# )!A@l+ "A!H}A+ APm1 "A'A@1 APoF AG -@!<(ŠԬĠH}ӺBF p ) AGqA&A&r"  -(  Ԡ"(t(<1> ASCENDINGvH}(<2> DESCENDINGw0-@!)(ҠҠ0)y%"@IA% Apz%"@PI}A% Ap{ AU  -(6-?:C:,-@!2( M} CROOK DISK/FILENAME D:6 : > 7#J 6.D:67,. 67,. 367$A(,. <67,.C6.J6.<#M}A#J 6-6-6-6-#(}@( Ǡ͠FJ F#  6- 6-%H#5 &(HEY, M}NOT A BASIC FILE...-6.1 5 K#  6- 6-%$M#  6- 6-%$O# 6-&%P#P<6-?:C:hhhhIhM}HhEhD V`,<@<%:&A($+!A',,M}A(>:,Z#! A(6-%! AE^## 6. #67&B:=:,,<,.=:,`#+$67+&,$%<+&,$%@,.+( a#+M} %@&6-%!6-+ AEd#2 6-%67$+%,,.(2( VARIABLES...f#[)6-@:7<,,%$@:7@<@M },,[6-@:7@<@,,%$@:7@<@,,h# 6-&&6-&l#SB6-?:C:hhhhIhHhEhD V`,<@<  (6(%SORRY, BUT PROGRAM IS TOO BIG TO LOAD: > #( ((LOADING#D86-?:M}C:hhhhIhHhEhD V`,<@<U}?@ABCDEFGHIJKLMU} @6-6-!6-@-6-@96-@E6-@Q6-@]6-@i6-@u6-@U}6-@ 6-AV6-F:A4,%$F:A5, dd;A($@8,;@ ,;@,;@,;@0U},;A ,;,;,;A , "6-I:,&A ;,"6. ] 6-6-@8!6-A0-6-B96-B U }E6-BQ6-A]6-Ao6-A6-A'6-A 36-A96-E6-AQ6-A]6-AU!}Rc6-o6-@P&K:&DESELECT PRINTER r;A&,r67<@,.PhhhhhЩڅϢ؅֥مU"}օe֥ׅͅiפ˥ Ԑ, Ԑ II67@<A&,..ߩڤ͈HԑhЬЦА`U#}i;A ,i67<@q,.GhhhhhhhhhJԭ`AA67@r<A U$},.&h̭Эȩԅ`r;@,r67<@,.Phhhhhhhhheͥͅe΅eх˥eU%}eυϥeЅР͑ϩ..67@<@,.Х˥̰`|;@,|67@<@,.Thhh BU&} VhhJhEhDB VBJ BBBBhIhHhEhD V BLVZY+ *( V A R A L I S T E R J( U'} ========================M(P(S(V(Y([""( DESIGNED AND DEVELOPED BY\( BOB MCDAVITT](( USING VARIOU(}US IDEAS^!!( FROM DIFFERENT MAGAZINES_0(0(% REFER TO C. L.STONE VARIABLE UTILITYa**(" PAGE 6 MAGAZINE, ISSUES 11 U)}AND 12b##( ALSO PROGRAMS SUCH AS CRABc( AND HELPERd   n? 6-6-6-6-!6-'6--6-36-U*}96-?6-x' 6-6-6-6-!6-'6- 6-6-6-6- 6-6-6-6-FFLINES 100 TO 14U+}0 NECESSARY TO CONSTRUCT THE VARIABLE VALUE TABLEFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTU,}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT"FILL IN TEXT,FILL IN TEXT6U-}FILL IN TEXT@FILL IN TEXTJFILL IN TEXTTFILL IN TEXT^FILL IN TEXThFILL IN TEXTrFILL IN TEXT|U.}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTU/}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTU0}FILL IN TEXTFILL IN TEXTFILL IN TEXT&FILL IN TEXT0FILL IN TEXT:FILL IN TEXTDFILL IN TEXU1}TNFILL IN TEXTXFILL IN TEXTbFILL IN TEXTlFILL IN TEXTvFILL IN TEXTFILL IN TEXTFILL IN TEU2}XTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTĠҠś3AU3}A !'-3(6.D:XX.VAR6.7,d A -@!9(ҠŨĺخҩ U4}N(Šخҽ `-@@"d''@:,!@d)@:, @A<-@!0( CROOK DISK/FILENAMU5}E 4 8 <  6.D:67,.6.7B:,&:,!67$%<$%,.>:,)6-U8}%/!56-=6-% A  67$%,.(( VARIABLES  6. VARIABLE LIST  < U9}B:,"4("NOTHING LOADED YET, FOR MENU8<  6-6-6- -6-$* -"(7&@7<&@0U:},*6-%5"@*"6-6-+6-@5 A`5"@*"6-6-+6-@)5 A`/"U;}@*"6-6-%6-/ Ar$  At0?-@"4( Ӡ٠٠ҠԠŠ ;)? 1 U<}2T-@+(NUMBER OF VARIABLES: 7-@ T( LENGTH OF STRING: B:,3   2+AR.6. DU=} I R E C T O R Y 2  6-6-# A %#D:*.*  -(6-%DDIF DU>}$(11,13)="VAR" OR D$(11,13)="DAT" THEN ? " ";(B:, @A! @A \"@ U?}6-6-'-@"G(Ԡ٠٠ҠԠN)R \ A 6-@ 6- A &&( SORRYU@}, COULDN'T READ THE DISK4    +  < B:,"4("NOTHING LOADED YET, FOR MENU8UA}<  6.INPUT VARIABLES  <-B:,'6-$*@@d<B7tA" 16.7&@)<,16.7&UB}@7<&@0, )-@)( VARIABLE () =  i-@6("ҠΠƠŠŠB-@UC}i("͠ƠӠ i-@6("B-@i("UD} .-@( *-@. 67&@)<,.  -@ ( L-@"UE}5(! TO ALTER, FOR MENU,OR ANY KEY<)H-@"L  !!"@)"A!A% "@w)"A ' UF}  (}    ՠ F+ )6. M E N U ?-P:@@&B:,,'C(F( UG}- ))(! <1> DISK -- LOOK AT DIRECTORY (((  <2> -- LOAD A .VAR FILE (((  <3> -- LOAD A .BAS FILEUH} (((  <4> -- SAVE A .VAR FILE ))(! <5> -- SAVE ALTERED FILE ( &&( <6> DISPLAY FULL -- SCREENUI} ''( <7> -- PRINTER &&( <8> SUMMARY-- SCREEN ( ( SORT THE LISTING ( ADD DESCRIPTIONS ( FIND LINE NUMBERS ##( CHANGE VARIABLE NAMES ( CONVERT CONSTANTS ( UK} END PROGRAM ( (-@!((ҠҠ 0 )6-&@H0!* @A0p "@5UL}6- A0p %"@6-@% A0p %"@"6-@% A0p %"@6-@% A0pUM} %"@@6-@% A0p %"@!6-@% A0p A0` wwA AAA`UN}AUA@APA@AA%A5AEAeAp ŠҠ / +UO}6.̠ɠΠŠƠɠΠĠŠҠ/  2 B:,"*(PROGRAM IS NOT LOADED .... 2  5  A5,6.7$%<$%@,UP}56-A:, 6.>:%A', / ( }-@,( SEARCH CRITERION/( O-(%<1> PRECEDED BY (INVISIBLE) TOKENL(UQ} (ASC54 OR CHR$6)O( G%(<2> PRECEDED BY A TOKEND( (ASC 8 OR CHR$)G( b*("<3> LINES WHEUR}RE TOKEN APPEARS b( (ASC%A' OR CHR$>:%A',) L-@!'( ENTER YOUR CHOICE.)L US}@I)!@QA5@ %"@I67,.%67<,.6 %"@P67,.%67<,. / ( }-@,(UT} OUTPUT CRITERION/( ( <1> PRINTER ( <2> SCREEN L-@!'( ENTER YOUR CHOICE.)L @I)!@PUU}A5R ?"@P(}#E:)/5? A5X ) A5VP: ) A5X OA(3UV} NO RESPONSE FROM PRINTER, HIT TO CONTINUE..EO A5H S-( LINE NUMBERS FOR 7$%<$%,S( ====UW}======================== 6- -#6-?:C:, B:,"6($ NOTHING LOADED YET, FORUc} MENU:>  6- -6-$# -(7&@7<,#6-%V"@6-!-@"K($àҠUd}ՠ٠٠ҠԠR)V "@''     ŠҠ< B:,"4("NOTHUe}ING LOADED YET, FOR MENU8< 1 -6.ҠŠΠ͠ŠҠ1  AH AI267$Uf}%<$%,. 267$%<$%,.P67B:,,.067B:,,.>:@:7B:,,,%A(,P67B:,,.>:@:7B:,,,%A(,##6Ug}-?:C:,:P:',,p!!67<,.>:&@:7%<%,,$,z$""SUB TO INPUT A VUt}ARIABLE NAME Y ( HIT FOR MENU U(/OR GIVE ONE OF THIS PROGRAMS VARIABLE OLD NAME:Y 4 ' Uu}67B:,%,. R B:,!G(6 SORRY, CAN ONLY HANDLE VARIABLES 8 CHARACTERS OR LESSK N'R ##6-?:C:, B f AP5-U|}@!:(Ԡ͠ź L-@'@!P(b-@&@!f, -@!,( P R I N T I N GU}} ...['3 VARIABLES FOR PROGRAM X3+===========================================[3B -6-$B37&@7U~}<&@0, 7&@)<,   :-@! .(PRINTER NOT AVAILABLE2 6 : |ŠU}ӠŠ} -(~  6.7,< 4-@!4( PROGRAM NOT LOADED 8 < > AU5U}-@!>( ҠŨĺخө .(Šخӽ *-@@".4AU5 6.U}D:67,. 6-B:,6-"7<,0:6-&" AU"7<,0D6-&" AU 67,.67B:,%,.U}&6-%B:,&6-@& AGC#67&<&,.>:@:7&<&,,%,C67&<&,.>:@:7&<&,,%,##67&<&,.>:U}@:7&<&,,%,/ (}/( NOW SAVING )(!% ) >-@!2( U} CROOK DISK/FILENAME D:6 : > o""ˠpŠҠŠq -(r. U}6-6.7,%4.6.XXs3 4+(} NOTHING TO SAVE, YOU DUMMY/ 3 ve A`5-@!>( U}Ũĺخҩ O( Šؽ a-@@"ew4A`5x( 6.D:67,.(67B:,%,..VARU}z) (})( NOW SAVING (( $ ( E-@!9( CROOK DISK/FILENAMU}E D:.VAR= A E dΠƠӛiE 4-@!=("PROGRAM NOT LOADED A E U}nU :(&}ŠϠŠԠU6.ԠҠpX( (R(D Ǻ THIS WILL ADD AU} LINE NUMBERED 0 TO THE PROGRAM.U(X(qV7<,44(Һ ՠ٠ŠV( ŠU}Ġr>(%( TO RETURN TO MENU OR >( TO CONTINUEs )"@' tAUAew 6U}-6.xd ( ENTRY #%1(HIT FOR MENU d(- OR NOMINATE CONSTANT TO BE REPLACED, NUMBER z|U}4Af` 6-A:,6-% "@8( NO MORE , I'M FULLR(HIT TO GO ONV` Af(( PLEASU}E WAIT 6-%6.C67,.=:,& 6. 6.=:,&67&B:,<,.n6-$+&,67%<%,.367%<%@,.U}P67%@<%@,.=n67%@<%@ ,.=:,>>67%@!<%,.% U},#67B:,,.>:@:7B:,,,%A(,,6-B:,6%6-?:C:,:&,+67<,.967B:,%,.g 6- Ag6-# Ag+6-%16-; AgU}G6-@Q Ag]6-@g Ag6.>:%A',U67B:,%,.>:B:,%@,/67B:,%,.6=67B:,%,.U}M67B:,%,.-U6.. -*67B:,%:F:%%,,. 67B:,%:@:7%<%,,&, 6-%9 !B:,U}/( HELP: I'VE RUN OUT OF PROGRAM9 Ae6-@:7<,,#  %#67<,.>:@:7<,,&,  6-% AevU}67<,.67%,.7%,6 6-66-@ AG,6-@6 AG!6-?:C:,%@q,! AebP#( OU}K, I'M DONE WITH THAT ONEB(HIT FOR NEXT ENTRYFP Ae 1 1(% I AM NOW ADDING A LINE 0 TO PROGRAM . 6U}-B:,67,.%67<,.>:,.6-B:,.6-?:C:,:P:',,@!!67<,.>:&@U}:7%<%,,$,J$X\-@!3(KILL PROGRAM..ARE YOU SURE.....X( OR TO MENU\b 4YU}+c @+AAJA@8T= B:,"5(#NOTHING LOADED YET,Π FOR MENU9= U}U 6.CVh7<,4 B(-1ST VARIABLE IS BLANK, MAYBE NOT YET LOADEDd( FOR MENU OR TO GO ONhW 0U}C ^ -(  Ԡ(c(<1> ACCORDING TO NAMEe!!(<2> ACCORDING TO NUMBER g,( <3> OTHER,( OU}R FOR MENUh@-@!)(ҠҠ0)<"AU@ j#6-&@H# )!A@l+ "U}A!A+ APm1 "A'A@1 APoF AG -@!<(ŠU}ԬĠӺBF p ) AGqA&A&r"  -(  Ԡ"(t(<1U}> ASCENDINGv(<2> DESCENDINGw0-@!)(ҠҠ0)y%"@IA% Apz%U}"@PA% Ap{ AU  -(6-?:C:,-@!2( CROOK DISK/FILENAME U}D:6 : > 7#J 6.D:67,. 67,. 367$A(,. <67,.C6.J6.<#A#J 6-6-U}6-6-#(}@( Ǡ͠FJ F#  6- 6-%H#5 &(HEY, NOT A BASIC FILE...-6U}.1 5 K#  6- 6-%$M#  6- 6-%$O# 6-&%P#P<6-?:C:hhhhIhHhEhD V`,<@U}<%:&A($+!A',,A(>:,Z#! A(U}6-%! AE^## 6. #67&B:=:,,<,.=:,`#+$67+&,$%<+&,$%@,.+( a#+ %@&6-%!6U}-+ AEd#2 6-%67$+%,,.(2( VARIABLES...f#[)6-@:7<,,%$@:7@<@,,[6-@:7@<@U},,%$@:7@<@,,h# 6-&&6-&l#SB6-?:C:hhhhIhHhEhD V`,<@<  (6(%SORRY, BUT PROGRAM IS TOO BIG TO LOAD: > #( ((LOADING#D86-?:C:hhhhIhHhEhDU}COCCCCCCCCCCC25CONBCDDDEFINMVPPABMENALIMENMECLGOTGOTSCREEBORDETEXYELLOBLACY}GREEBLUCURSOOFRESSSEARCHRTZZCOUNFLPPROSSTARSTMTATEMVNTVNTVNTVVTAY} Y} !"Y}#$%&'()*+,-./01Y}23456789:;<=>?@AY}BCDEFG @6-6-!6-@-6-@96-@E6-Y}@Q6-@]6-@i6-@u6-@6-@ 6-AV6-F:A4,%$F:A5, dd;A(Y}$@8,;@ ,;@,;@,;@0,;A ,;,;,;A , "6-I:,&A ;,"6. ] 6Y}-6-@8!6-B0-6-B96-B E6-BQ6-A]6-Ao6-A6-A'6-A Y}36-A96-E6-AQ6-A]6-ARc6-o6-@P&K:&DESELECT PRINTER r;A&Y},r67<@,.PhhhhhЩڅϢ؅֥مօe֥ׅͅiפ˥ Ԑ, Ԑ II67@<A&,.Y}.ߩڤ͈HԑhЬЦА`i;A ,i67<@q,.GhhhhhhhhhJY}ԭ`AA67@r<A ,.&h̭Эȩԅ`r;@,r67<@,.Y}Phhhhhhhhheͥͅe΅eх˥e҅eυϥeЅР͑ϩ..67@<@,.Х˥Y}`|;@,|67@<@,.Thhh B VhhJhEhDB VBJ BBBBhIhHhEhD V BLY}VZY+ *( V A R A L I S T E R J( ========================M(P(S(V(Y([""( DESIGNED AND DEVELOPED BYY}\( BOB MCDAVITT](( USING VARIOUS IDEAS^!!( FROM DIFFERENT MAGAZINES_0(0(% REFER TO C. L.STONE VY}ARIABLE UTILITYa**(" PAGE 6 MAGAZINE, ISSUES 11 AND 12b##( ALSO PROGRAMS SUCH AS CRABc( AND HELPERd   Y}n? 6-6-6-6-!6-'6--6-36-96-?6-x' 6-6-6-6-!6-'6- 6-6-6-6Y}- 6-6-6-6-FFLINES 100 TO 140 NECESSARY TO CONSTRUCT THE VARIABLE VALUE TABLEFILL IN TEXTFY}ILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTY}FILL IN TEXT"FILL IN TEXT,FILL IN TEXT6FILL IN TEXT@FILL IN TEXTJFILL IN TEXTTFILL IN TEXT^Y}FILL IN TEXThFILL IN TEXTrFILL IN TEXT|FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTY}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTY}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT&FILL IN TEXT0Y}FILL IN TEXT:FILL IN TEXTDFILL IN TEXTNFILL IN TEXTXFILL IN TEXTbFILL IN TEXTlFILL IN TEXTY}vFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTY}FILL IN TEXT') (}-P:@@&B:,,'#(&()$$'G -@"7( Ӡ٠٠ҠŠՠD)@Y}G$j'1.(% 1$2L+ @/6. M E N U E-P:@@&B:,,'IY}(L(2 B2 -2))(! <1> DISK -- LOOK AT DIRECTORY2(((  <2> -- LOAD A .VAR FILE2(((  <3> Y} -- LOAD A .BAS FILE2(((  <4> -- SAVE A .VAR FILE2))(! <5> -- SAVE ALTERED FILE2(2&&( <6> DY}ISPLAY FULL -- SCREEN2''( <7> -- PRINTER2&&( <8> SUMMARY-- SCREEN2(2( SORT Y}THE LISTING2( ADD DESCRIPTIONS2( FIND LINE NUMBERS2##( CHANGE VARIABLE NAMES2( CONVY}ERT CONSTANTS2( END PROGRAM2(2(-@!((ҠҠ3 )6.D:SUB3A>:,416-Y}@+67@,.276-A#A B03A>:,426-@+67@,.176-AA B03A>:,43Y}6-@+67@,.976-AA B03A>:,446-@+67@,.676-A0A B0 3B>:Y},456-@,67@,.5586-AwB B0 3A>:,466-@+67@,.476-A(A B0 3Y}A>:,476-@+67@,.576-AXA B0 3B>:,486-@,67@,.1586-AB B0Y}3A>:,4S6-@ +67@,.876-A cA B03B>:,4A6-@,67@,.2586-AVY}B B03B>:,4F6-@,67@,.3586-A&B B03B>:,4C6-@,67@,.4586-Y}AB B03B>:,4X6-@,67@,.6586-A"B B03A>:,4E6-@+67@,.7Y}76-AA B03 B0`367B:,%@,. 3+6-F:A6,%$F:A7,%6-+6-3. &6-$Y}6-%F:%@,. B03Q%@%&'%@%&;%@Q%&@AU31%F:,&@Y}1%%@F:%@,3, 6-&& @,6-%F:%@, 3!AU(HELP&!3j%%@#Y}%%@9%%@j%+&& @,$F:%@,&@AU"3((6-?:C:,<@<@:,6-%!U}$') (}-P:@@&B:,,'#(&()$$'G -@"7( Ӡ٠٠ҠŠՠD)@G$j'1.(% U} 1$2L+ @/6. M E N U E-P:@@&B:,,'I(L(2 -2U} CHANGE VARIABLE NAMES"13021 ? " CONVERT CONSTANTS"13022 ? " END PROGRAM"13023 ? 13055 POSITION C4,21:? "!}ҠҠ"13060 GET #C3,D:F$="D:SUB"13061 IF CHR$(D)="1" THEN D=1:F$(6)="2":P=423:GOTO 1308013062 IF CHR$(D)="2" !}THEN D=2:F$(6)="1":P=710:GOTO 1308013063 IF CHR$(D)="3" THEN D=3:F$(6)="9":P=1704:GOTO 1308013064 IF CHR$(D)="4" THEN D=4:F!}$(6)="6":P=430:GOTO 1308013065 IF CHR$(D)="5" THEN D=5:F$(6)="55":P=677:GOTO 1308013066 IF CHR$(D)="6" THEN D=6:F$(6)="4":P!}=328:GOTO 1308013067 IF CHR$(D)="7" THEN D=7:F$(6)="5":P=458:GOTO 1308013068 IF CHR$(D)="8" THEN D=8:F$(6)="15":P=501:GOTO !}1308013070 IF CHR$(D)="S" THEN D=9:F$(6)="8":P=963:GOTO 1308013071 IF CHR$(D)="A" THEN D=10:F$(6)="25":P=756:GOTO 13080130!}72 IF CHR$(D)="F" THEN D=11:F$(6)="35":P=1326:GOTO 1308013073 IF CHR$(D)="C" THEN D=12:F$(6)="45":P=1212:GOTO 1308013074 IF!} CHR$(D)="X" THEN D=13:F$(6)="65":P=2204:GOTO 1308013075 IF CHR$(D)="E" THEN D=14:F$(6)="7":P=117:GOTO 1308013079 GOTO 1306!}013080 F$(LEN(F$)+1)=" "13082 J=PEEK(136)+C256*PEEK(137):X=J:L=J13083 IF X-J<=P THEN L=X:X=X+PEEK(X+2):GOTO 1308313086!} POKE J+P,PEEK(X)-1:POKE J+P+1,PEEK(X+1)13087 IF X-J-P>254 THEN ? "HELP":STOP 13088 L=X-J-P:IF L>6 THEN POKE J+P+2,L:POKE J!}+P+3,L:POKE J+P+4,0:POKE X-1,155:GOTO 1309013089 L=L+PEEK(X+2):POKE J+P+2,L:POKE J+P+3,L:POKE J+P+4,0:POKE X+PEEK(X+2)-1,155!}13090 J=USR(ADR(ZZ$),16,4,ADR(F$),P,J)13091 J=USR(ADR(ZZ$),16,4,ADR(F$),P,J)13100 ON D GOTO 2000,1000,9000,6000,5500,4000,!}5000,1040,8000,2500,3500,4500,6500,700013091 J=USR(ADR(ZZ$),16,4,ADR(F$),P,J)13100 ON D GOTO 2000,1000,9000,6000,5500,4000, ())(! <1> DISK -- LOOK AT DIRECTORY2(((  <2> -- LOAD A .VAR FILE2(((  <3> -- LOAD A .BAS FILE2(((U}  <4> -- SAVE A .VAR FILE2))(! <5> -- SAVE ALTERED FILE2(2&&( <6> DISPLAY FULL -- SCREEN2''(U} <7> -- PRINTER2&&( <8> SUMMARY-- SCREEN2(2( SORT THE LISTING2( ADD DU}ESCRIPTIONS2( FIND LINE NUMBERS2##( CHANGE VARIABLE NAMES2( CONVERT CONSTANTS2( ENDU}B TO INPUT A VARIABLE NAMEU ( HIT FOR MENU Q(+OR GIVE PROGRAM VARIABLE NAME:U 4 '-}  67B:,%,.  R B:,!G(6 SORRY, CAN ONLY HANDLE VARIABLES 8 CHARACTERS OR LESSK N'R  ##6-?:C:,17 GOTO 10031004 A=USR(ADR("hхj΅Y`")):ON PEEK(5\ PROGRAM2(2(-@!((ҠҠ30 )6-&@H0!* @B0p3"@56-U} B0p3%"@6-@% B0p3%"@"6-@% B0p3%"@6-@% B0p 3%V}"@@6-@% B0p 3%"@!6-@% B0p 3 B0`3wwA AAA`AUV}A@APA@AA%A5AEAeApD2:VARYALL.BASAAA`AUTb67,.>:,6-%!$V`,<@<:P:',,@!!67<,.>:&@:7%<%,,$,J$ES AyCOCCCCCCCCCCC25CONBCDDDEFINMVPPABMENALIMENMECLGOTGOTSCREEBORDETEXYELLOBLACb}GREEBLUCURSOOFRESSSEARCHRTZZCOUNFLPPROSSTARSTMTATEMVNTVNTVNTVVTAb} b} !"b}#$%&'()*+,-./01b }70CAI867B:,,.$!!Ҡ4M' 34AI40CAI4I23456789:;<=>?@Ab }BCDEFG @6-6-!6-@-6-@96-@E6-b }@Q6-@]6-@i6-@u6-@6-@ 6-AV6-F:A4,%$F:A5, dd;A(b }$@8,;@ ,;@,;@,;@0,;A ,;,;,;A , "6-I:,&A ;,"6. ] 6b}-6-@8!6-B0-6-B96-B E6-BQ6-A]6-Ao6-A6-A'6-A b}36-A96-E6-AQ6-A]6-ARc6-o6-@P&K:&DESELECT PRINTER r;A&b},r67<@,.PhhhhhЩڅϢ؅֥مօe֥ׅͅiפ˥ Ԑ, Ԑ II67@<A&,.b}.ߩڤ͈HԑhЬЦА`i;A ,i67<@q,.GhhhhhhhhhJb}ԭ`AA67@r<A ,.&h̭Эȩԅ`r;@,r67<@,.b}Phhhhhhhhheͥͅe΅eх˥e҅eυϥeЅР͑ϩ..67@<@,.Х˥b}`|;@,|67@<@,.Thhh B VhhJhEhDB VBJ BBBBhIhHhEhD V BLb}VZY+ *( V A R A L I S T E R J( ========================M(P(S(V(Y([""( DESIGNED AND DEVELOPED BYb}\( BOB MCDAVITT](( USING VARIOUS IDEAS^!!( FROM DIFFERENT MAGAZINES_0(0(% REFER TO C. L.STONE Vb}ARIABLE UTILITYa**(" PAGE 6 MAGAZINE, ISSUES 11 AND 12b##( ALSO PROGRAMS SUCH AS CRABc( AND HELPERd   b}n? 6-6-6-6-!6-'6--6-36-96-?6-x' 6-6-6-6-!6-'6- 6-6-6-6b}- 6-6-6-6-FFLINES 100 TO 140 NECESSARY TO CONSTRUCT THE VARIABLE VALUE TABLEFILL IN TEXTFb}ILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTb}FILL IN TEXT"FILL IN TEXT,FILL IN TEXT6FILL IN TEXT@FILL IN TEXTJFILL IN TEXTTFILL IN TEXT^b}FILL IN TEXThFILL IN TEXTrFILL IN TEXT|FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTb}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTb}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT&FILL IN TEXT0b}FILL IN TEXT:FILL IN TEXTDFILL IN TEXTNFILL IN TEXTXFILL IN TEXTbFILL IN TEXTlFILL IN TEXTb }vFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTb!}FILL IN TEXT') (}-P:@@&B:,,'#(&()$$'G -@"7( Ӡ٠٠ҠŠՠD)@b"}G$j'1.(% 1$2L+ @/6. M E N U E-P:@@&B:,,'Ib#}(L(2 B2 -2))(! <1> DISK -- LOOK AT DIRECTORY2(((  <2> -- LOAD A .VAR FILE2(((  <3> b$} -- LOAD A .BAS FILE2(((  <4> -- SAVE A .VAR FILE2))(! <5> -- SAVE ALTERED FILE2(2&&( <6> Db%}ISPLAY FULL -- SCREEN2''( <7> -- PRINTER2&&( <8> SUMMARY-- SCREEN2(2( SORT b&}THE LISTING2( ADD DESCRIPTIONS2( FIND LINE NUMBERS2##( CHANGE VARIABLE NAMES2( CONVb'}ERT CONSTANTS2( END PROGRAM2(2(-@!((ҠҠ3 )6.D:SUB3A>:,416-b(}@+67@,.276-AHA B03A>:,426-@+67@,.176-A%A B03A>:,43b)}6-@+67@,.976-AuA B03A>:,446-@+67@,.676-APA B0 3B>:b*},456-@,67@,.5586-AB B0 3A>:,466-@+67@,.476-A(A B0 3b+}A>:,476-@+67@,.576-AXA B0 3B>:,486-@,67@,.1586-AB B0b,}3A>:,4S6-@ +67@,.876-A cA B03B>:,4A6-@,67@,.2586-AVb-}B B03B>:,4F6-@,67@,.3586-AEB B03B>:,4C6-@,67@,.4586-b.}AB B03B>:,4X6-@,67@,.6586-A$B B03A>:,4E6-@+67@,.7b/}76-AA B03 B0`367B:,%@,. 3+6-F:A6,%$F:A7,%6-+6-3. &6-$b0}6-%F:%@,. B03Q%@%&'%@%&;%@Q%&@AU31%F:,&@b1}1%%@F:%@,3, 6-&& @,6-%F:%@, 3!AU(HELP&!3j%%@#b2}%%@9%%@j%+&& @,$F:%@,&@AU"3((6-?:C:,<@<@:P:',,X!!67<,.>:&@:7%<%,,$,b$o""ˠ:7%<%<tCOCCCCCCCCCCC25CONBCDDDEFINMVPPABMENALINMENMECLGOTGOTSCREEBORDETEXYELLOBLACf7}GREEBLUCURSOOFRESSSEARCHRTZZCOUNFLPPROSSTARSTMTATEMVNTVNTVNTVVTAf8} f9} !"f:}#$%&'()*+,-./01f;}23456789:;<=>?@Af<}BCDEFG @6-6-!6-@-6-@96-@E6f=}-@Q6-@]6-@i6-@u6-@6-@ 6-AV6-F:A4,%$F:A5, dd;A(f>}$@8,;@ ,;@,;@,;@0,;A ,;,;,;A , "6-I:,&A ;,"6. ] f?}6-6-@8!6-B0-6-B96-B E6-BQ6-A]6-Ao6-A6-A'6-A f@}36-A96-E6-AQ6-A]6-ARc6-o6-@P&K:&DESELECT PRINTER r;A&fA},r67<@,.PhhhhhЩڅϢ؅֥مօe֥ׅͅiפ˥ Ԑ, Ԑ II67@<A&,fB}..ߩڤ͈HԑhЬЦА`i;A ,i67<@q,.GhhhhhhhhhJfC}ԭ`AA67@r<A ,.&h̭Эȩԅ`r;@,r67<@,fD}.Phhhhhhhhheͥͅe΅eх˥e҅eυϥeЅР͑ϩ..67@<@,.Х˥fE}̰`|;@,|67@<@,.Thhh B VhhJhEhDB VBJ BBBBhIhHhEhD V BfF}LVZY+ *( V A R A L I S T E R J( ========================M(P(S(V(Y([""( DESIGNED AND DEVELOPED BfG}Y\( BOB MCDAVITT](( USING VARIOUS IDEAS^!!( FROM DIFFERENT MAGAZINES_0(0(% REFER TO C. L.STONE fH}VARIABLE UTILITYa**(" PAGE 6 MAGAZINE, ISSUES 11 AND 12b##( ALSO PROGRAMS SUCH AS CRABc( AND HELPERd   fI}n? 6-6-6-6-!6-'6--6-36-96-?6-x' 6-6-6-6-!6-'6- 6-6-6-fJ}6- 6-6-6-6-FFLINES 100 TO 140 NECESSARY TO CONSTRUCT THE VARIABLE VALUE TABLEFILL IN TEXTfK}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTfL}FILL IN TEXT"FILL IN TEXT,FILL IN TEXT6FILL IN TEXT@FILL IN TEXTJFILL IN TEXTTFILL IN TEXT^fM}FILL IN TEXThFILL IN TEXTrFILL IN TEXT|FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTfN}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTfO}FILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXT&FILL IN TEXTfP}0FILL IN TEXT:FILL IN TEXTDFILL IN TEXTNFILL IN TEXTXFILL IN TEXTbFILL IN TEXTlFILL IN TEXTfQ}vFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXTFILL IN TEXfR}TFILL IN TEXT') (}-P:@@&B:,,'#(&()$$'G -@"7( Ӡ٠٠ҠŠՠD)@fS}G$j'1.(% 1$2L+ @/6. M E N U E-P:@@&B:,,'fT}I(L(2 B2 -2))(! <1> DISK -- LOOK AT DIRECTORY2(((  <2> -- LOAD A .VAR FILE2(((  <3> fU} -- LOAD A .BAS FILE2(((  <4> -- SAVE A .VAR FILE2))(! <5> -- SAVE ALTERED FILE2(2&&( <6> fV}DISPLAY FULL -- SCREEN2''( <7> -- PRINTER2&&( <8> SUMMARY-- SCREEN2(2( SORTfW} THE LISTING2( ADD DESCRIPTIONS2( FIND LINE NUMBERS2##( CHANGE VARIABLE NAMES2( CONfX}VERT CONSTANTS2( END PROGRAM2(2(-@!((ҠҠ3 )6.D:SUB3A>:,416fY}-@+67@,.276-A#A B03A>:,426-@+67@,.176-AA B03A>:,4fZ}36-@+67@,.976-AA B03A>:,446-@+67@,.676-A0A B0 3B>:f[},456-@,67@,.5586-AwB B0 3A>:,466-@+67@,.476-A(A B0 f\}3A>:,476-@+67@,.576-AXA B0 3B>:,486-@,67@,.1586-AB Bf]}03A>:,4S6-@ +67@,.876-A cA B03B>:,4A6-@,67@,.2586-AVf^}B B03B>:,4F6-@,67@,.3586-AB B03B>:,4C6-@,67@,.4586-f_}AB B03B>:,4X6-@,67@,.6586-A#B B03A>:,4E6-@+67@,.f`}776-AA B03 B0`367B:,%@,. 3+6-F:A6,%$F:A7,%6-+6-3. &6-fa}$6-%F:%@,. B03Q%@%&'%@%&;%@Q%&@AU31%F:,&fb}@1%%@F:%@,3, 6-&& @,6-%F:%@, 3!AU(HELP&!3j%%@#fc}%%@9%%@j%+&& @,$F:%@,&@AU"3((6-?:C:,<@<@7 @$I6-+&,'>^*6-&+&,'*O:&,!?A@jl}d1(DEW IS P:$@%?P,'@ CZ( LCL P:+&,$A5%?P, FTd A"(GIVE X= @jm}$"(D1:DEW:a6<@= CZ( LCL P:+&,$A5%?P, FTd A"(GIVE X= @h(LXOOUT@ @7%@#A$&&9@5,;@,;@,(-@no}@5"$68,-( kk5.495,5.894,6.319,6.771,7.251,7.762,8.305,8.882,9.494,10.14,10.83,11.56,12.34,13.16,14.03,14.np}95,15.93YY16.96,18.06,19.21,20.44,21.73,23.10,24.55,26.08,27.69,29.40,31.21,33.11,35.13,37.25 D#@@nq}P:D(@>:@',>:@i,FF(@5 TABLE OF MIXING RATIO VALUESBB(@nr}1 in grams per kilogram((@2YY(@HTemperature (C) >>> 5 6 7 8 9 ns} 10 11 12 13 14 154'(@'(@ Relative5(@ Humidity6(@ percentFnt}-@@PH4 6.=:,6. 467@&B:,<@,.K$$(@  P-@nu}@R\&6.=:P:+8,$'A,%?P,,26. N67@&B:,<@,.\(@U (@Z nv} D1:MIXTAB@ @<,%?P,,26. N67@&B:,<@,.\(@U (@Z l!0^_XfCOUNTWORDOSETUINCCHECOUEQUADONAAAAArx} @ @ @ @ @@@ &&9@%,;@%,;@%,!( GIVE STARTING Wry}ORD !36-A6-A'6-A36-A2 < F P ( Z( @`c%d 6-rz}B:,i6-@n&-@6-$"68,-& q&&( THERE ARE  COMBINATIONS.s6-6-@vr{} ( x$ 6-68,-8,%@ 8,$;68,-@ 6-&@,"86-@;$r|} A,6-6!-@!-%@@+8,"8,6-@'!'+ A@J   T$6r}01WORDOCOUNTEQUALNTFLAA2@@@@@ @v~}@ &&;@%,;@%,9@%,$( GIVE WORD : 6.ABCDE$( 6-B:,$-@ 68v},-$ -@(-@7$-@ 68,-$ 8-@<"67<,.7<,"68v},-@F-@P"@Z-@\78,""67<,.7<,168,-@76-_ `v} d33FLAG=0:FOR N=1 TO L:IF COUNT(N)=0 THEN FLAG=1e NEXT NnIF FLAG=0 THEN ? O$:STOPo ( s   (x v}  (z PPCOUNT(J)=COUNT(J)+1:IF COUNT(J)>L THEN COUNT(J)=1:J=J+1:COUNT(J)=1:GOTO 50D1:ANA2ABCDEt|12 4 1 5 0 10 70 2 12 132test1D:test2vߙ]aibiabL*  x312 4 1 5 0 10 70 2 12 132the answer is test2ߙ]aibiabL*  |:-%@( -@(78,<8,,   ($D1:ANA@@@@@@@r}@( -@(78,<8,,   ($D1:ANA@@@@@@@p 1R'